function savegraph(opath,desc);    
%function savegnew(opath,desc);    
%save active graph into filename 
%desc in path opath both as 
%an eps and jpg file 
% 1/15/07
rd=cd; 
cd(opath); 
ghand=get(0,'CurrentFigure'); 
gfname=[desc '.eps']; 
print(ghand,'-deps',gfname); 
gfname2=[desc '.jpg']; 
print(ghand,'-djpeg100','-r300',gfname2);
close(ghand); 
clear ghand gfname varo;
cd(rd);         